home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / amiga-internet-seiten / magazin / a03-97 / listing2 < prev    next >
Text File  |  1997-03-21  |  2KB  |  58 lines

  1. ; Test-Installerskript, ©1996 Marcel Bennicke
  2. ; ---------------------------------------------------
  3. ; alle Dateien in devs:dosdrivers werden in ein neues
  4. ; Verzeichnis kopiert
  5.  
  6. (set #nohelp "Keine Hilfe verfügbar")
  7.  
  8. (complete 0)  ; Wert 0..100
  9.  
  10. (message "\n\n\nWillkommen zum Installerkurs des "
  11.      "Amiga-Magazins.\n\nIm folgenden werden alle aktiven "
  12.      "Dosdrivers in ein neues Verzeichnis kopiert (Ihre "
  13.      "Systemkonfiguration bleibt unberührt)."
  14.  
  15.   (all)  ; Nachricht auch im Einsteigermodus zeigen
  16. )
  17.  
  18. (welcome)   ; Startseite mit Standardtext
  19.  
  20. ; an @default-dest das Ergebnis von askdir zuweisen
  21. (set @default-dest
  22.   (askdir (prompt "Bitte wählen Sie das Installationsverzeichnis."
  23.                   " Dort wird eine neue Schublade angelegt" )
  24.      (help @askdir-help)
  25.      (default @default-dest)
  26.   )
  27. )
  28.  
  29. ; neuen Verzeichnisnamen anhängen
  30. (set @default-dest (tackon @default-dest "Meine_DosDrivers"))
  31.  
  32. (complete 40)
  33.  
  34. ; schon einmal installiert ?
  35. (if (exists @default-dest)
  36.   (rename @default-dest (cat @default-dest "_backup")
  37.     (prompt "Das Verzeichnis \"Meine_DosDrivers\" existiert"
  38.             " bereits.\n\nDie alte Installation wird gerettet")
  39.     (help #nohelp)
  40.     (confirm)  ; im Expertenmodus bestätigen lassen
  41.   )
  42. )
  43.  
  44. (complete 60)
  45.  
  46. (copyfiles
  47.   (prompt "Die Dateien aus \"devs:DosDrivers\" werden nun kopiert")
  48.   (help #nohelp)
  49.   (source "devs:dosdrivers")  ; Quelle
  50.   (dest @default-dest)    ; Ziel, erzeugt gleichzeitig neue Schublade
  51.   (infos)                 ; Icons mitkopieren
  52.   (noposition)            ; Icon-Position resetten
  53.   (confirm average)       ; ab user-level "average" bestätigen
  54.   (all)                   ; alle Dateien im Quellverzeichnis kop
  55. )
  56.  
  57. (complete 100)
  58.